;;;QQ:67762207
[@MaterialSellMain]
{
#IF
#SAY
;;ӭ٣еϣеƷǺϡеģܾòнһλջŶ\\
;;<ָģ/@BuyMaterial(ָģ)>  <װ½/@BuyMaterial(װ½)>  <ģ/@BuyMaterial(ģ)>  <Ь/@BuyMaterial(Ь)>  <ҩ䷽/@BuyMaterial(ҩ䷽)>  \    
;;<ָģ/@BuyMaterial(ָģ)>  <Ůװ½/@BuyMaterial(Ůװ½)>  <ģ/@BuyMaterial(ģ)>  <ñ/@BuyMaterial(ñ)>  <ҩ/@BuyMaterial(ҩ)> \
;;<ģ/@BuyMaterial(ģ)>  <ģ/@BuyMaterial(ģ)>            <ʯ/@BuyMaterial(ʯ)> \\

;;<ر/@exit>
ҪòҪڿ˫,Ͽڹϱ,Ͽȥ!\
<ر/@exit>

[@BuyMaterial()]
#IF
#ACT
mov A0 %ARG(1)

#IF
EQUAL A0 "ָģ"

#SAY
<ָģһ/@BuyMaterial_2(ָģһ,500,0)>\
<ָģ/@BuyMaterial_2(ָģ,1000,0)>\
<ָģ/@BuyMaterial_2(ָģ,2000,0)>\
<ָģ/@BuyMaterial_2(ָģ,4000,0)>\
<ָģ/@BuyMaterial_2(ָģ,8000,0)>\
<ָģ/@BuyMaterial_2(ָģ,16000,1)>\
<ָģ/@BuyMaterial_2(ָģ,32000,140)>\
<ָģ/@BuyMaterial_2(ָģ,64000,600)>\
<ָģ/@BuyMaterial_2(ָģ,128000,1660)>\
</@MaterialSellMain>

#IF
EQUAL A0 "װ½"

#SAY
<װ½һ/@BuyMaterial_2(װ½һ,500,0)>\
<װ½/@BuyMaterial_2(װ½,1000,0)>\
<װ½/@BuyMaterial_2(װ½,2000,0)>\
<װ½/@BuyMaterial_2(װ½,4000,0)>\
<װ½/@BuyMaterial_2(װ½,8000,0)>\
<װ½/@BuyMaterial_2(װ½,16000,1)>\
<װ½/@BuyMaterial_2(װ½,32000,140)>\
<װ½/@BuyMaterial_2(װ½,64000,600)>\
<װ½/@BuyMaterial_2(װ½,128000,1660)>\
</@MaterialSellMain>
#IF
EQUAL A0 "Ůװ½"

#SAY
<Ůװ½һ/@BuyMaterial_2(Ůװ½һ,500,0)>\
<Ůװ½/@BuyMaterial_2(Ůװ½,1000,0)>\
<Ůװ½/@BuyMaterial_2(Ůװ½,2000,0)>\
<Ůװ½/@BuyMaterial_2(Ůװ½,4000,0)>\
<Ůװ½/@BuyMaterial_2(Ůװ½,8000,0)>\
<Ůװ½/@BuyMaterial_2(Ůװ½,16000,1)>\
<Ůװ½/@BuyMaterial_2(Ůװ½,32000,140)>\
<Ůװ½/@BuyMaterial_2(Ůװ½,64000,600)>\
<Ůװ½/@BuyMaterial_2(Ůװ½,128000,1660)>\
</@MaterialSellMain>

#IF
EQUAL A0 "ģ"

#SAY
<ģһ/@BuyMaterial_2(ģһ,500,0)>\
<ģ/@BuyMaterial_2(ģ,1000,0)>\
<ģ/@BuyMaterial_2(ģ,2000,0)>\
<ģ/@BuyMaterial_2(ģ,4000,0)>\
<ģ/@BuyMaterial_2(ģ,8000,0)>\
<ģ/@BuyMaterial_2(ģ,16000,1)>\
<ģ/@BuyMaterial_2(ģ,32000,140)>\
<ģ/@BuyMaterial_2(ģ,64000,600)>\
<ģ/@BuyMaterial_2(ģ,128000,1660)>\
</@MaterialSellMain>
#IF
EQUAL A0 "ģ"

#SAY
<ģһ/@BuyMaterial_2(ģһ,500,0)>\
<ģ/@BuyMaterial_2(ģ,1000,0)>\
<ģ/@BuyMaterial_2(ģ,2000,0)>\
<ģ/@BuyMaterial_2(ģ,4000,0)>\
<ģ/@BuyMaterial_2(ģ,8000,0)>\
<ģ/@BuyMaterial_2(ģ,16000,1)>\
<ģ/@BuyMaterial_2(ģ,32000,140)>\
<ģ/@BuyMaterial_2(ģ,64000,600)>\
<ģ/@BuyMaterial_2(ģ,128000,1660)>\
</@MaterialSellMain>
#IF
EQUAL A0 "ģ"

#SAY
<ģһ/@BuyMaterial_2(ģһ,500,0)>\
<ģ/@BuyMaterial_2(ģ,1000,0)>\
<ģ/@BuyMaterial_2(ģ,2000,0)>\
<ģ/@BuyMaterial_2(ģ,4000,0)>\
<ģ/@BuyMaterial_2(ģ,8000,0)>\
<ģ/@BuyMaterial_2(ģ,16000,1)>\
<ģ/@BuyMaterial_2(ģ,32000,140)>\
<ģ/@BuyMaterial_2(ģ,64000,600)>\
<ģ/@BuyMaterial_2(ģ,128000,1660)>\
</@MaterialSellMain>
#IF
EQUAL A0 "ñ"

#SAY
<ñһ/@BuyMaterial_2(ñһ,500,0)>\
<ñܶ/@BuyMaterial_2(ñܶ,1000,0)>\
<ñ/@BuyMaterial_2(ñ,2000,0)>\
<ñ/@BuyMaterial_2(ñ,4000,0)>\
<ñ/@BuyMaterial_2(ñ,8000,0)>\
<ñ/@BuyMaterial_2(ñ,16000,1)>\
<ñ/@BuyMaterial_2(ñ,32000,140)>\
<ñܰ/@BuyMaterial_2(ñܰ,64000,600)>\
<ñܾ/@BuyMaterial_2(ñܾ,128000,1660)>\
</@MaterialSellMain>
#IF
EQUAL A0 "ָģ"

#SAY
<ָģһ/@BuyMaterial_2(ָģһ,500,0)>\
<ָģ/@BuyMaterial_2(ָģ,1000,0)>\
<ָģ/@BuyMaterial_2(ָģ,2000,0)>\
<ָģ/@BuyMaterial_2(ָģ,4000,0)>\
<ָģ/@BuyMaterial_2(ָģ,8000,0)>\
<ָģ/@BuyMaterial_2(ָģ,16000,1)>\
<ָģ/@BuyMaterial_2(ָģ,32000,140)>\
<ָģ/@BuyMaterial_2(ָģ,64000,600)>\
<ָģ/@BuyMaterial_2(ָģ,128000,1660)>\
</@MaterialSellMain>

#IF
EQUAL A0 "ģ"

#SAY
<ģһ/@BuyMaterial_2(ģһ,500,0)>\
<ģ/@BuyMaterial_2(ģ,1000,0)>\
<ģ/@BuyMaterial_2(ģ,2000,0)>\
<ģ/@BuyMaterial_2(ģ,4000,0)>\
<ģ/@BuyMaterial_2(ģ,8000,0)>\
<ģ/@BuyMaterial_2(ģ,16000,1)>\
<ģ/@BuyMaterial_2(ģ,32000,140)>\
<ģ/@BuyMaterial_2(ģ,64000,600)>\
<ģ/@BuyMaterial_2(ģ,128000,1660)>\
</@MaterialSellMain>

#IF
EQUAL A0 "Ь"

#SAY
<Ьһ/@BuyMaterial_2(Ьһ,500,0)>\
<Ь׶/@BuyMaterial_2(Ь׶,1000,0)>\
<Ь/@BuyMaterial_2(Ь,2000,0)>\
<Ь/@BuyMaterial_2(Ь,4000,0)>\
<Ь/@BuyMaterial_2(Ь,8000,0)>\
<Ь/@BuyMaterial_2(Ь,16000,1)>\
<Ь/@BuyMaterial_2(Ь,32000,140)>\
<Ьװ/@BuyMaterial_2(Ьװ,64000,600)>\
<Ь׾/@BuyMaterial_2(Ь׾,128000,1660)>\
</@MaterialSellMain>


#IF
EQUAL A0 "ʯ"

#SAY
</@BuyMaterial_2(,500,0)>\
</@BuyMaterial_2(,1000,0)>\
</@BuyMaterial_2(,2000,0)>\
</@BuyMaterial_2(,4000,0)>\
</@BuyMaterial_2(,8000,0)>\
</@BuyMaterial_2(,16000,1)>\
</@BuyMaterial_2(,32000,140)>\
</@BuyMaterial_2(,64000,600)>\
</@BuyMaterial_2(,128000,1660)>\
</@MaterialSellMain>


#IF
EQUAL A0 "ҩ䷽"

#SAY
<ҩ䷽/@BuyMaterial_2(ҩ䷽,500,0)>\
<мҩ䷽/@BuyMaterial_2(мҩ䷽,1000,0)>\
<߼ҩ䷽/@BuyMaterial_2(߼ҩ䷽,2000,0)>\
<ؼҩ䷽/@BuyMaterial_2(ؼҩ䷽,4000,0)>\
<ҩ䷽/@BuyMaterial_2(ҩ䷽,8000,0)>\
</@MaterialSellMain>

#IF
EQUAL A0 "ҩ"

#SAY
<Сƿ/@BuyMaterial_2(Сƿ,10,0)>\
<кƿ/@BuyMaterial_2(кƿ,20,0)>\
<ƿ/@BuyMaterial_2(ƿ,50,0)>\
<غƿ/@BuyMaterial_2(غƿ,100,0)>\
<Сŷֽ/@BuyMaterial_2(Сŷֽ,10,0)>\
<кŷֽ/@BuyMaterial_2(кŷֽ,20,0)>\
<ŷֽ/@BuyMaterial_2(ŷֽ,50,0)>\
<ŷֽ/@BuyMaterial_2(ŷֽ,10000,0)>\
</@BuyMaterial_2(,80,0)>\
<ƿ/@BuyMaterial_2(ƿ,100,1)>\
</@BuyMaterial_2(,800,3)>\
<ֽ/@BuyMaterial_2(ֽ,100,0)>\
</@MaterialSellMain>


[@BuyMaterial_2()]
#IF
#ACT
mov A1 %ARG(1)
mov D0 %ARG(2)
mov D1 %ARG(3)
mov 1 %A1
mov 2 %D0
mov 3 %D1


#IF
EQUAL D1 0
#SAY
'<$OUTPUT(A1)>'Ҫ'<$OUTPUT(D0)>',ÿ⹺.\\
</@@BuyMatrialNolimit>\
<ر/@exit>

#ELSESAY
'<$OUTPUT(A1)>'Ҫ'<$OUTPUT(D0)>',Ϊޣÿֻܹһ.\\
</@BuyMatriallimit>\
<ر/@exit>

[@BuyMatriallimit]
#ACT
mov A1 %1
mov D0 %2
mov D1 %3
#IF

#ACT
MOV D2 %CURHOUR
loadvalue D3 "ParamControl\ProduceSystem\۲ʱ.ini" [%A1] [LastTime]
Inc D3 %D1

#IF
ESMALL D3 %D2
#ACT
sysmsg "<$OUTPUT(D3)> <$OUTPUT(D2)>"
take  %D0
give %A1 1
savevalue  "ParamControl\ProduceSystem\۲ʱ.ini" [%A1] [LastTime] %D2
#SAY
1'<$OUTPUT(A1)>'Ľ'<$OUTPUT(D0)>'.\\
</@MaterialSellMain>\
<ر/@exit>
#ELSESAY
Բ𣬸Ʒʱûֻȴһʱ\\
<ر/@exit>


[@@BuyMatrialNolimit]
#ACT
MOV D3 %INPUTNUM
mov A0 %1
mov D0 %2
mov D1 %3
mov P1 %D3
mov P2 %D0
mul P1 P2
mov D4 %P9

#IF
CHECKGOLD %D4
#ACT
take  %D4
give %A0 %D3
#SAY
'<$OUTPUT(D3)>''<$OUTPUT(A0)>'Ľ'<$OUTPUT(D4)>'.\\
</@MaterialSellMain>\
<ر/@exit>
}
;;;QQ:67762207